home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / gkismet / AboutDialog.pm next >
Encoding:
Perl POD Document  |  2005-10-20  |  1.6 KB  |  73 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # $Id: AboutDialog.pm,v 1.13 2003/07/23 06:25:50 solovam Exp $
  4. #
  5. # This file is a part of gkismet
  6. #
  7. # This program is free software; you can redistribute it and/or
  8. # modify it under the terms of the GNU General Public License
  9. # as published by the Free Software Foundation; either version 2
  10. # of the License, or (at your option) any later version.
  11. #
  12. # This program is distributed in the hope that it will be useful,
  13. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. # GNU General Public License for more details.
  16. #
  17. # You should have received a copy of the GNU General Public License
  18. # along with this program; if not, write to the Free Software
  19. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20. #
  21.  
  22. #
  23. # AboutDialog class
  24. #
  25. package AboutDialog;
  26.  
  27. use Gnome;
  28. use Misc;
  29. use strict;
  30.  
  31. #
  32. # Constructor
  33. #
  34. sub new
  35. {
  36.     my $type = shift;
  37.     my $self = {};
  38.     bless $self, $type;
  39.  
  40.     my $gKismetApplication = shift;
  41.     $self->{'gKismetApplication'} = $gKismetApplication;
  42.     
  43.     my $about = new Gnome::About('gkismet', $version,
  44.         '(C) 2003 Anton Solovyev (anton@solovyev.com)', 'Anton Solovyev', 'gkismet - a GtkPerl based Kismet client');
  45.     $about->signal_connect('destroy', sub{$self->destroyHandler()});
  46.     $about->set_parent($gKismetApplication->getWidget());
  47.     $self->{'about'} = $about;
  48.     $about->show();
  49.  
  50.     return $self;
  51. }
  52.  
  53. #
  54. # Get widget
  55. #
  56. sub getWidget
  57. {
  58.     my $self = shift;
  59.     return $self->{'about'};
  60. }
  61.  
  62. #
  63. # Destroy signal handler
  64. #
  65. sub destroyHandler
  66. {
  67.     my $self = shift;
  68.     $self->{'gKismetApplication'}->dialogClose('AboutDialog');
  69.     return($false);
  70. }
  71.  
  72. 1;
  73.